home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / macuser8.sit / MacUser P- 86 User Preferences / card_3608.txt < prev    next >
Text File  |  1987-11-03  |  6KB  |  267 lines
  1. -- card: 3608 from stack: in
  2. -- bmap block id: 2450
  3. -- flags: 4000
  4. -- background id: 2615
  5. -- name: User Preferences
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9.   setUserLevel the userLevel
  10.   if card field "User Name" is empty
  11.   then click at the loc of card field "User Name"
  12. end openCard
  13.  
  14. on setUserLevel whatLevel
  15.   set userLevel to whatLevel
  16.   if the userLevel is whatLevel then
  17.     put the userLevel into card field "User Level"
  18.     set hilite of button "Browsing" to the userLevel = 1
  19.     set hilite of button "Typing" to the userLevel = 2
  20.     set hilite of button "Painting" to the userLevel = 3
  21.     set hilite of button "Authoring" to the userLevel = 4
  22.     set hilite of button "Scripting" to the userLevel = 5
  23.     set visible of button "Power Keys" to the userLevel >= 3
  24.     set visible of button "Blind Typing" to the userLevel = 5
  25.     set hilite of button "Power Keys" to the powerKeys
  26.     set hilite of button "Blind Typing" to the blindTyping
  27.   else
  28.     set hilite of the target to false
  29.   end if
  30. end setUserLevel
  31.  
  32.  
  33.  
  34. -- part 1 (button)
  35. -- low flags: 00
  36. -- high flags: A006
  37. -- rect: left=95 top=145 right=166 bottom=223
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Browsing
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   setUserLevel 1
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 2 (button)
  54. -- low flags: 00
  55. -- high flags: A006
  56. -- rect: left=95 top=187 right=208 bottom=223
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Painting
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   setUserLevel 3
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 3 (button)
  73. -- low flags: 00
  74. -- high flags: A006
  75. -- rect: left=95 top=208 right=229 bottom=223
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Authoring
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   setUserLevel 4
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 4 (button)
  92. -- low flags: 00
  93. -- high flags: E006
  94. -- rect: left=95 top=229 right=250 bottom=223
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Scripting
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   setUserLevel 5
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (button)
  111. -- low flags: 00
  112. -- high flags: A005
  113. -- rect: left=211 top=187 right=208 bottom=314
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Power Keys
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   set powerKeys to the hilite of button "Power Keys"
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 7 (field)
  130. -- low flags: 00
  131. -- high flags: 0000
  132. -- rect: left=168 top=91 right=111 bottom=392
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 0
  136. -- font id: 3
  137. -- text size: 14
  138. -- style flags: 0
  139. -- line height: 18
  140. -- part name: User Name
  141. ----- HyperTalk script -----
  142. on closeField
  143.   global userName
  144.   put card field "User Name" into userName
  145. end closeField
  146.  
  147.  
  148.  
  149. -- part 8 (button)
  150. -- low flags: 00
  151. -- high flags: A006
  152. -- rect: left=95 top=166 right=187 bottom=223
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Typing
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   setUserLevel 2
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 9 (field)
  169. -- low flags: 81
  170. -- high flags: 0000
  171. -- rect: left=173 top=125 right=144 bottom=198
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: User Level
  180.  
  181.  
  182. -- part 13 (button)
  183. -- low flags: 00
  184. -- high flags: E005
  185. -- rect: left=212 top=229 right=250 bottom=315
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Blind Typing
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   set blindTyping to the hilite of button "Blind Typing"
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 14 (button)
  202. -- low flags: 00
  203. -- high flags: 8000
  204. -- rect: left=202 top=274 right=320 bottom=304
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   visual effect dissolve
  216.   go to card id 4250 of stack "MacUser P-86  Home"
  217. end mouseUp
  218.  
  219.  
  220.  
  221.  
  222. -- part 15 (button)
  223. -- low flags: 00
  224. -- high flags: A006
  225. -- rect: left=273 top=123 right=144 bottom=401
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Show Menubar
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   show menubar
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 18 (button)
  242. -- low flags: 00
  243. -- high flags: A006
  244. -- rect: left=272 top=153 right=174 bottom=400
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Compact Stack
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   domenu compact stack
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part contents for card part 9
  261. ----- text -----
  262. 5
  263.  
  264. -- part contents for card part 7
  265. ----- text -----
  266.  
  267.